home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / netz / zvt / faxscript.rexx next >
OS/2 REXX Batch file  |  1995-08-26  |  1KB  |  80 lines
  1. /* FaxScript For GPFax And ZVT                    */
  2. /* Start/Listen GPFax, Recieve Fax, Exit/Unlisten GPFax        */
  3.  
  4. ADDRESS VOIXELPORT
  5. options results
  6.  
  7. signal on break_c
  8. signal on halt
  9. signal on syntax
  10.  
  11. options failat 50
  12.  
  13. say "FaxScript For GPFax And ZVT"
  14.  
  15. ADDRESS COMMAND "WFP REXX_GPFAX 0"
  16.  
  17. if rc>0 then
  18.     do
  19.         ADDRESS COMMAND "run >nil: <nil: GPFax:GPFax -z -W -NP -Q"
  20.         ADDRESS COMMAND "WFP REXX_GPFAX 30"
  21.         if rc>0 then
  22.         do
  23.             call setVars(rc)
  24.             exit
  25.         end
  26.         ADDRESS rexx_gpfax recfax
  27.         call setVars(rc)
  28.         ADDRESS rexx_gpfax quitfax
  29.     end
  30. else
  31.     do
  32.         ADDRESS rexx_gpfax openserial
  33.         ADDRESS rexx_gpfax recfax
  34.         call setVars(rc)
  35.         ADDRESS rexx_gpfax closeserial
  36.     end
  37. exit
  38.  
  39.  
  40. setVars: procedure
  41.     parse arg error
  42.  
  43.     if error=0 then
  44.         do
  45.         address rexx_gpfax 'reportlog' 6
  46.         address zvt.1 'setlength ' || result
  47.         address rexx_gpfax 'reportlog' 1
  48.         address zvt.1 'setname ' || result
  49.         end
  50.     else
  51.         do
  52.         address rexx_gpfax 'reportlog' 6
  53.         address zvt.1 'setlength ' || 0
  54.         address zvt.1 'setname no_file'
  55.         end
  56.     return rc
  57.  
  58.  
  59. error:
  60.     call Debug("Error" rc "at line" sigl)
  61.     return rc
  62.  
  63. break_c:
  64. halt:
  65.     call Debug("CTRL_C at line" sigl)
  66.     exit 20
  67.  
  68. syntax:
  69.     call Debug("Syntax error" rc "at line" sigl)
  70.     return rc
  71.  
  72.  
  73. Debug: procedure
  74.     parse arg info
  75.  
  76.     firstLine = sourceline(1)
  77.     parse var firstLine '/*' title '*/'
  78.     say title ':' info
  79.     return
  80.